<%@  language="VBScript" %>
<%  Option Explicit %>

<%
    Dim objConn, objRSAlbums
    Dim strSQL    

    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.ConnectionString = "dsn=Developer;uid=JohnNgo;pwd=jo2.0G$!;"    
    'objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Developer.mdb")    
    objConn.Open
    
    strSQL = "DELETE FROM photoAlbums"
    Set objRSAlbums = Server.CreateObject("ADODB.Recordset")
    objRSAlbums.Open strSQL, objConn, 1, 3, 1

    strSQL = "SELECT * FROM photoAlbums"
    Set objRSAlbums = Server.CreateObject("ADODB.Recordset")
    objRSAlbums.Open strSQL, objConn, 1, 3, 1
	
	objRSAlbums.AddNew
	'objRSAlbums.Fields("albumID").Value = 1
	objRSAlbums.Fields("username").Value = "John"
	objRSAlbums.Fields("albumName").Value = "Test 1"
	objRSAlbums.Fields("priority").Value = 1
	objRSAlbums.Update
	
	objRSAlbums.AddNew
	'objRSAlbums.Fields("albumID").Value = 2
	objRSAlbums.Fields("username").Value = "John"
	objRSAlbums.Fields("albumName").Value = "Test 2"
	objRSAlbums.Fields("priority").Value = 2
	objRSAlbums.Update
	
	objRSAlbums.AddNew
	'objRSAlbums.Fields("albumID").Value = 3
	objRSAlbums.Fields("username").Value = "John"
	objRSAlbums.Fields("albumName").Value = "Test 3"
	objRSAlbums.Fields("priority").Value = 3
	objRSAlbums.Update

	objRSAlbums.AddNew
	'objRSAlbums.Fields("albumID").Value = 4
	objRSAlbums.Fields("username").Value = "John"
	objRSAlbums.Fields("albumName").Value = "Test 4"
	objRSAlbums.Fields("priority").Value = 4
	objRSAlbums.Update

	objRSAlbums.AddNew
	'objRSAlbums.Fields("albumID").Value = 5
	objRSAlbums.Fields("username").Value = "John"
	objRSAlbums.Fields("albumName").Value = "Test 5"
	objRSAlbums.Fields("priority").Value = 5
	objRSAlbums.Update

	objRSAlbums.AddNew
	'objRSAlbums.Fields("albumID").Value = 6
	objRSAlbums.Fields("username").Value = "Steven"
	objRSAlbums.Fields("albumName").Value = "Test 6"
	objRSAlbums.Fields("priority").Value = 6
	objRSAlbums.Update

    objRSAlbums.Close
    set objRSAlbums = Nothing
    objConn.Close
    set objConn = Nothing

%>